home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / comm / cnet / SnarfURL.lha / LaunchURL.rexx next >
OS/2 REXX Batch file  |  1997-12-27  |  734b  |  37 lines
  1. /********************************************************
  2. **
  3. ** This tries to goto the specified URL depending on which
  4. ** browser you have, either Voyager or IBrowse, which needs
  5. ** to be running at the time.
  6. **
  7. */
  8.  
  9. options results
  10. parse arg URLtoGO PADD
  11.  
  12.  
  13. TaskRoster = upper( show(p) )
  14.  
  15. if Index( TaskRoster, "VOYAGER" ) > 0 then do
  16.  
  17.         address VOYAGER;OpenURL URLtoGO
  18.         
  19. end
  20.     
  21. else if Index( TaskRoster, "IBROWSE" ) > 0 then do
  22.     
  23.         address IBROWSE;GotoURL URLtoGO
  24.         
  25. end
  26.  
  27. /* NOTE: The public AWeb demo 3 does not have an AREXX port */
  28. /* so this is un-tested!                                    */
  29.  
  30. else if Index( TaskRoster, "AWEB.1" ) > 0 then do
  31.  
  32.         address AWEB.1;OPEN URLtoGO
  33.         
  34. end
  35.  
  36. else say "Couldn't find a browser running!"
  37.